rgl graphic

plyLoadR similar graphic

Show the code
# Load the same ply files, now via the plyLoadR library
library(plyLoadR)

plyLoadR(
  paths = paste0(Mainpath, "/", patient1_FolderViews),
  localFiles = TRUE,
  elementId = "plyLoadRGraphic1",
  isTransparent = TRUE,
  opacity = list(0.4, 0.6),
  isWireframe = FALSE
)

plyLoadR: Mesh evolution

Show the code
# Load ply files with 'aligned' geometries
plyLoadR(
  paths = paste0(Mainpath, "/", patient0_FolderViews),
  localFiles = TRUE,
  elementId = "plyLoadRGraphic2",
  isTransparent = TRUE,
  opacity = 0.5,
  camera = list(position = list(30, 0, 25)),
  toggleWidgets = TRUE,
  toggleLabels = c("2020-07-09", "2020-07-17", "2020-07-24")
)



Github repo for this example